



DEF VAR i AS INT.

OUTPUT TO c:\womstr.txt.

DEF VAR a LIKE tr_qty_chg.

a = 0.
FOR EACH tr_hist NO-LOCK WHERE tr_type = "RCT-WO"
    AND tr_effdate >= DATE(4,1,2009) AND tr_effdate <= DATE(4,30,2009) 
    BREAK BY tr_part
    WITH STREAM-IO WIDTH 120
    :

    a = a + tr_qty_chg.

    ACCUMULATE tr_qty_chg (TOTAL BY tr_part).

    IF LAST-OF(tr_part) THEN DO:
        FIND FIRST sct_det NO-LOCK WHERE sct_sim = "Standard" AND sct_part = tr_part AND sct_site = tr_site NO-ERROR.
        DISPLAY tr_part (ACCUM TOTAL BY tr_part tr_qty_chg) FORMAT "->>>>>>>>>>>>9.99<<<<" sct_bdn_tl WHEN AVAILABLE sct_det .
    END.
    
END.

OUTPUT CLOSE.


MESSAGE a VIEW-AS ALERT-BOX.
